約 3,923,442 件
https://w.atwiki.jp/99772200/pages/99.html
憐 Ren パイロット ノンパイロット ユニット メッセージ ダイアログ エフェクト アニメ
https://w.atwiki.jp/satoschi/pages/7759.html
レガオ語 |Austro-Asiatic languages|Mon-Khmer languages| 言語類型 現用言語 使用文字 ラテン文字【Latn?】 type living language writing system Latin alphabet ISO 639-3 【ren】 言語名別称 alternate names Ro-Ngao レンガオ語 方言名 dialect names Bahnar-Rengao Sedang-Rengao Western Rengao 参考文献 references WEB ISO 639-3 Registration Authority - SIL International the LINGUIST List Ethnologue Wikipedia
https://w.atwiki.jp/tetrismaps/pages/108.html
RENの土台だが、ここでは中開けRENを紹介する。 開幕REN土台は、基本種3土台と種6土台に分けられる。 画像を見た通り種となるミノの数により分かれている。 種3土台 種3土台はこちら。 この他にも色々なパターンがあると思われるが、ある程度の法則(端から3ミノ分までしか積まず、片方の内側のミノ1つを開けておく)を守っていればどんな形でもいい。 開けておいた1マスにテトリミノ一つを差し込むことで、種3のREN土台が完成する。 種6土台 種6土台はこちら。 作るのが面倒だから種3よりも低クオリティなことに触れてはいけない。 こちらも種3土台同様、ある程度の法則(端から3ミノ分までしか積まないが、真ん中の4列にミノを2つだけ出す)を守っていればどんな形でもいい。 真ん中の4列にLミノやSミノなどを適当に置くと種6土台が完成する。 端空け 種3土台はこちら。 種6は省く。 派生 テトリス積み 類似
https://w.atwiki.jp/trashpanda-araisan/pages/152.html
890 名前:SS アライREN2 (1/4) (ワッチョイ 056d-qWqy)[sage] 投稿日:2017/10/06(金) 00 00 39.06 ID RokL12RH0 [1/4] 昔やった【SIREN2】というホラーゲームで、バーサーカーのようになって どったんばったんの大奮闘した自衛官のおにいさんが、最期、なんか敵に地上を支配された BAD ENDのパラレルワールドへと飛ばされてしまい、絶望して発狂しながら機関銃を乱射する切ない展開があった。 https //www.youtube.com/watch?v=MqSmFbNAhco 彼のように、ザ・害獣大繁殖によって、アライグマ(アライさん)がうじゃうじゃと わいてる島になってしまった、パラレルワールドのパークに飛ばされて、絶望しながら銃を乱射したい… ─────────────────────────── ~ 100年後 ・ ジャパリパーク(?) ~ ヒト 「…っ」 次元のはざまから、人間がひとり、降ってきた。 アライさんA 「うえっ、なんなのだ!? おまえ!」 ガニ股で驚くアライさん アライさんB 「へんなのがでてきたのだ!」 指さすのはこれまた別個体のアライさん アライさんC~F 「…?」 「なにものなのだ?」 「アライさんじゃないのだ…」 「変な帽子なのだ」 うようよとわいて出る、アライ、アライ、アライグマ……大量のアライさんたち ヒト 「なんだ…っ これ……」 この迷彩服のお兄さん(21歳)は、かつて、パークの例の異変で戦っていた“ヒト”のひとり。 サンドスターに関わる未知の現象が、彼を、突如次元のひずみへと引き込み、パラレルワールド・ IFの異世界へ飛ばしてしまったのである。 ここ───害獣アライグマによって埋め尽くされたジャパリパーク、という、おぞましき BAD ENDの未来へと。 891 名前:アライREN2 (2/4) (ワッチョイ 056d-qWqy)[sage] 投稿日:2017/10/06(金) 00 02 16.43 ID RokL12RH0 [2/4] アライさんC 「ここは 『アライパーク』 なのだ」 (黒い手スリスリ) アライさんD 「ここはアライさんの島なのだ!」 (エッヘン) アライさんE 「アライさんはなぁ~~ ついに『天下を取った』 のだぞ~!」 (ピッカピカのときのドヤ顔) アライさんF 「い~~ぱいアライさんたちは増えたのだ! アライグマは、ゆうしゅうな“はんしょくりょく”がウリの動物なのだ!」 子アライA 「のだのだぁ!」 (ヨチヨチ) 子アライB 「にゃのだ~~!」 (ピョンピョン) 子アライC 「アライしゃんはしゅごいのだ~」 (ボテッッ) まだ子どものアライさんが、もう孕んでいる ~~~~ ラッキービースト 『ダメダヨ、アライグマ───』 アライさんG 「ボス! じゃぱりまんがぜんぜん足りないのだ! はやくアライさんの分をだすのだ~」(ガジガジ) アライさんH 「もうおなかぺっこぺこだぞ~」 子アライD 「にゃのだ~」 アライさんI 「むしゃむしゃ! これ食べられるのだ! じゃぱりまんじゃないけど、アライさんはなんでも食べられる、すごいどうぶつだからへーきなのだ!」 アライさんJ 「クチャクチャ」 ラッキービースト 『アライグマ、ソレハ、種ダヨ、食ベチャダメダヨ。ソレガナイト、畑ガ──』 子アライE 「ぼしゅは、ひとりじめする気なのだ~!」 892 名前:アライREN2 (3/4) (ワッチョイ 056d-qWqy)[sage] 投稿日:2017/10/06(金) 00 05 43.67 ID RokL12RH0 [3/4] 排水口などの小さな隙間からも侵入し、家や畑を荒らしまわった悪名高い動物・アライグマ。 そんな害獣らしく、パークの『裏側』、じゃぱりまんの生産に関わる建物や畑にまで、アライグマのフレンズたちは侵入していた。 アライさんK 「この“はたけ”はアライさんが先にみつけたのだ!」 (ぐぃぃい) アライさんL 「アライさんが『一番のり』したのだっ」 (ぷんすか) アライさんM 「ここはアライさんのナワバリなのだ (ウンチ指差し!)、はたけ泥棒め、こんな巨悪を許しては──」 (もみくちゃ) ヒト 「そんな、嘘だ……」 「…じゃあ、俺が担当してたフレンズたちは……」 人間の気配のない、荒廃しきったパークの姿が、気が遠くなるような長い年月の経過を彼に悟らせた。 島のどこへ行っても、跳梁跋扈する害獣。どっちを向いても目に飛び込んでくる、ハエのようなあのムーブ。 ツリ目の連中は、かつて人間のいた建物に穴をあけ、溜めフンをして我が物顔で住み着いている。 彼は、『こちらに飛ばされる前の世界』で寝泊まりしていたパーク中心地近くの居住区によろめきながらたどり着く。 彼の寝室もまた、時の経過に晒されていただけでなく、すっかり害獣によって荒らされいた。 そして、大切なフレンズたちと一緒に撮った写真が──アライグマにとって『お宝』にならない価値のないものだった からだろう、盗まれることなく残されていたが──天井から垂れるアライグマの糞尿によって、汚されていた。 ……もう、明らかだった。目の前の現実を認めるしかなかった。 人間があの異変でいなくなってから、長い長い年月が経ち、 かつてパークにいた他の、あの心優しいフレンズたち…、命をかけても守りたかった 愛しいみんなは、この大増殖した、ふてぶてしい害獣に、食料を我先にと取られ─── 結果、他人を蹴落とそうなんて考えもしないお人好しな他のフレンズのみんなは、エサがなくなると と同時にじゃぱりまんでのサンドスター摂取ができなくなったかで、静かにこのパークから姿を消したんだ。 ただ1種族だけ、なにかの間違いで生まれてしまった、ずうずうしい『フレンズもどき』だけを残して。 ヒト 「くそ!」 このままこいつらによって畑を、建物を荒らされたら、ラッキービーストがじゃぱりまんを 生産するシステムすらも維持できなくなる。そうしたら、本当の終わりだ。 893 名前:アライREN2 (4/4) (ワッチョイ 056d-qWqy)[sage] 投稿日:2017/10/06(金) 00 08 47.54 ID RokL12RH0 [4/4] ヒト 「いや、そうだ、ほんの少しだが、パークを元の姿に戻せる可能性がある…… あいつらみんなが、『遺物』からでもまた、フレンズ化できて、この島に暮らせる、 その環境を……俺が……つくることだ」 そう。かつて人間が、そうやって『害獣』を駆除し、生態系を守ったように。 絶望と恐怖と混乱と憤怒の中で、ほんの一筋、見い出した希望に、 既に発狂していた彼は、そのまま真っ直ぐ、身を任せた。 ヒト 「それが、俺がこの最悪の未来に来た意味なんだろ…………四神さまよ…!」 彼の怒りを具現化するかのように、彼の『鉄の杖』が火を噴いた。 昔、ヒトという種を最強の狩人にした、『銃』という名の魔法の杖。 「ぁあああ! カミカゼ見せてやるよぉぉ!」 アライさんA 「ふっはっはー! このタネというの、食べてみたらそこそこおいしいのだー♪ アライさんの大発見なの──だパブッ!」 ラッキービーストのシステムを永遠に壊そうとしていた害獣が一匹、ヘッドショットを受けた。 アライグマをすべて駆逐し、遺物すら残さず処分する。そして、パークの環境を取り戻す。 そんな、たったひとりではかなうはずもない、抵抗劇。 アライジェノサイダーの、始まりだった 【 自衛官・永井おにいさん───発狂(おそらく死亡)END 】 クロスオーバー系へ戻る
https://w.atwiki.jp/ro-hinanmin/pages/31.html
煉-Ren【称号:リア充()】
https://w.atwiki.jp/1016/pages/49.html
☆REN☆ 役職 キャラ名 ブレイヤ サブキャラ ☆雷鳴☆、☆Assistance☆他いろいろ 属性 火 レベル 73 職業 磁石 担当 イベント担当 その他 ☆☆のマークが目印です イベントのことならこちらへ↓ 名前 コメント
https://w.atwiki.jp/ce00582/pages/780.html
Function seekb(m As Single, th, gr, c1 As Single, c2 As Single, c3 As Single, y1 As Single, y2 As Single, y3 As Single) As Single Dim s As Single Dim u1 As Single Dim u2 As Single Dim u3 As Single Dim us As Single Dim sumb As Single sumb = 0 For s = 1 To 100 us = -999 If gr(s) = m Then u1 = Log(c1) + Log(1 - y1 / th(s)) If gr(s) = m Then u2 = Log(c2) + Log(1 - y2 / th(s)) If gr(s) = m Then u3 = Log(c3) + Log(1 - y3 / th(s)) If u1 us Then bs = y1 - c1 If u1 us Then us = u1 If u2 us Then bs = y2 - c2 If u2 us Then us = u2 If u3 us Then bs = y3 - c3 If u3 us Then us = u3 If gr(s) = m Then sumb = sumb + bs Next seekb = sumb End Function Function seeku(m As Single, th, gr, c1 As Single, c2 As Single, c3 As Single, y1 As Single, y2 As Single, y3 As Single) As Single Dim s As Single Dim u1 As Single Dim u2 As Single Dim u3 As Single Dim us As Single Dim sumu As Single sumu = 0 For s = 1 To 100 us = -999 If gr(s) = m Then u1 = Log(c1) + Log(1 - y1 / th(s)) If gr(s) = m Then u2 = Log(c2) + Log(1 - y2 / th(s)) If gr(s) = m Then u3 = Log(c3) + Log(1 - y3 / th(s)) If u1 us Then us = u1 If u2 us Then us = u2 If u3 us Then us = u3 If gr(s) = m Then sumu = sumu + us Next seeku = sumu End Function Function tls(th, y) As Single Dim n As Single Dim m As Single Dim tl As Single Dim tr As Single Dim c(0 To 10) As Single Dim maxw As Single Dim maxtl As Single Dim w1 As Single maxw = -999 For n = 1 To 60 tl = 0.01 * n tr = trs(tl, th, y) For m = 0 To 10 c(m) = (1 - tl) * y(m) + tr Next w1 = wel(th, c, y) If w1 maxw Then maxtl = tl If w1 maxw Then maxw = w1 Next tls = maxtl End Function Function trs(tl As Single, th, y) As Single Dim m As Single Dim tr1 As Single Dim tr2 As Single Dim tr3 As Single Dim b1 As Single Dim b2 As Single Dim b3 As Single Dim c(0 To 10) As Single Dim t As Single tr1 = 0.01 For m = 0 To 10 c(m) = (1 - tl) * y(m) + tr1 Next b1 = bud(th, c, y) tr2 = 0.5 For m = 0 To 10 c(m) = (1 - tl) * y(m) + tr2 Next b2 = bud(th, c, y) t = 0 Do Until t 100 tr3 = (tr1 + tr2) / 2 For m = 0 To 10 c(m) = (1 - tl) * y(m) + tr3 Next b3 = bud(th, c, y) If b3 0 Then b1 = b3 If b3 0 Then tr1 = tr3 If b3 0 Then b2 = b3 If b3 0 Then tr2 = tr3 If b3 ^ 2 10 ^ (-5) Then t = 1000 t = t + 1 Loop trs = tr1 End Function Function bud(th, c, y) As Single Dim b1 As Single Dim s As Single Dim m As Single b1 = 0 For s = 1 To 100 m = prefer(s, th, c, y) b1 = b1 + y(m) - c(m) Next bud = b1 End Function Function wel(th, c, y) As Single Dim w1 As Single Dim s As Single Dim m As Single w1 = 0 For s = 1 To 100 m = prefer(s, th, c, y) w1 = w1 + Log(c(m)) + Log(1 - y(m) / th(s)) Next wel = w1 End Function Function prefer(s As Single, th, c, y) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim l1 As Single maxu = -999 For m = 0 To 10 c1 = c(m) l1 = y(m) / th(s) pp = 0 If l1 0.99 Then pp = 1 If l1 0.99 Then l1 = 0.5 If c1 0.01 Then pp = 1 If c1 0.01 Then c1 = 0.5 u1 = Log(c1) + Log(1 - l1) If pp = 1 Then u1 = -999 If u1 maxu Then maxm = m If u1 maxu Then maxu = u1 Next prefer = maxm End Function Private Sub Command1_Click() Dim s As Single Dim m As Single Dim th(1 To 100) As Single Dim y(0 To 10) As Single Dim c(0 To 10) As Single Dim cs(0 To 10) As Single Dim u(2 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim b(2 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim tl As Single Dim tr As Single Dim m1 As Single Dim gr(1 To 100) As Single Dim h As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim c1 As Single Dim c2 As Single Dim c3 As Single Dim y1 As Single Dim y2 As Single Dim y3 As Single For s = 1 To 100 th(s) = 0.02 * s Next For m = 0 To 10 y(m) = 0.1 * m Next tl = tls(th, y) tr = trs(tl, th, y) For m = 0 To 10 cs(m) = (1 - tl) * y(m) + tr Next For m = 0 To 10 c(m) = cs(m) Next For s = 1 To 100 m = prefer(s, th, c, y) gr(s) = m Next For s = 1 To 100 Debug.Print s, gr(s) Next h = 0.01 For m = 2 To 9 y1 = y(m - 1) y2 = y(m) y3 = y(m + 1) For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 c1 = c(m - 1) + n1 * h c2 = c(m) + n2 * h c3 = c(m + 1) + n3 * h u(m, n1, n2, n3) = seeku(m, th, gr, c1, c2, c3, y1, y2, y3) b(m, n1, n2, n3) = seekb(m, th, gr, c1, c2, c3, y1, y2, y3) Next Next Next Next For m = 2 To 9 Debug.Print b(m, 0, 0, 1) - b(m, 0, 0, 0) Next End Sub
https://w.atwiki.jp/ce00582/pages/851.html
Function u(s As Single, th1, th2, c1 As Single, y1 As Single, c2 As Single, y2 As Single) As Single Dim lx As Single Dim cx As Single Dim px As Single l1 = y1 / th1(s) l2 = y2 / th2(s) cx = (c1 + c2) / 2 px = 0 If cx 0.01 Then px = 1 If l1 0.99 Then px = 1 If l2 0.99 Then px = 1 If px = 1 Then cx = 0.5 If px = 1 Then l1 = 0.5 If px = 1 Then l2 = 0.5 ux = 2 * Log(cx) + Log(1 - l1) + Log(1 - l2) If px = 1 Then ux = -999 u = ux End Function Function tls(th1, th2, y) As Single Dim n As Single Dim m As Single Dim tl As Single Dim tr As Single Dim c(0 To 10) As Single Dim maxw As Single Dim maxtl As Single Dim w1 As Single maxw = -999 For n = 1 To 5 tl = 0.1 * n tr = trs(tl, th1, th2, y) For m = 0 To 10 c(m) = (1 - tl) * y(m) + tr Next w1 = wel(th1, th2, c, y) If w1 maxw Then maxtl = tl If w1 maxw Then maxw = w1 Next tls = maxtl End Function Function trs(tl As Single, th1, th2, y) As Single Dim m As Single Dim tr1 As Single Dim tr2 As Single Dim tr3 As Single Dim b1 As Single Dim b2 As Single Dim b3 As Single Dim c(0 To 10) As Single Dim t As Single tr1 = 0.01 For m = 0 To 10 c(m) = (1 - tl) * y(m) + tr1 Next b1 = bud(th1, th2, c, y) tr2 = 0.5 For m = 0 To 10 c(m) = (1 - tl) * y(m) + tr2 Next b2 = bud(th1, th2, c, y) t = 0 Do Until t 100 tr3 = (tr1 + tr2) / 2 For m = 0 To 10 c(m) = (1 - tl) * y(m) + tr3 Next b3 = bud(th1, th2, c, y) If b3 0 Then b1 = b3 If b3 0 Then tr1 = tr3 If b3 0 Then b2 = b3 If b3 0 Then tr2 = tr3 If b3 ^ 2 10 ^ (-5) Then t = 1000 t = t + 1 Loop trs = tr1 End Function Function bud(th1, th2, c, y) As Single Dim b1 As Single Dim s As Single Dim m As Single b1 = 0 For s = 1 To 100 m1 = mprefer(s, th1, th2, c, y) m2 = fprefer(s, th1, th2, c, y) b1 = b1 + y(m1) - c(m1) + y(m2) - c(m2) Next bud = b1 End Function Function wel(th1, th2, c, y) As Single Dim w1 As Single Dim s As Single Dim m As Single Dim c1 As Single Dim y1 As Single Dim c2 As Single Dim y2 As Single w1 = 0 For s = 1 To 100 m1 = mprefer(s, th1, th2, c, y) m2 = fprefer(s, th1, th2, c, y) c1 = c(m1) y1 = y(m1) c2 = c(m2) y2 = y(m2) w1 = w1 + u(s, th1, th2, c1, y1, c2, y2) Next wel = w1 End Function Function mprefer(s As Single, th1, th2, c, y) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim y1 As Single Dim c2 As Single Dim y2 As Single maxu = -999 For m1 = 0 To 10 For m2 = 0 To 10 c1 = c(m1) y1 = y(m1) c2 = c(m2) y2 = y(m2) u1 = u(s, th1, th2, c1, y1, c2, y2) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next Next mprefer = maxm End Function Function fprefer(s As Single, th1, th2, c, y) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim y1 As Single Dim c2 As Single Dim y2 As Single maxu = -999 For m1 = 0 To 10 For m2 = 0 To 10 c1 = c(m1) y1 = y(m1) c2 = c(m2) y2 = y(m2) u1 = u(s, th1, th2, c1, y1, c2, y2) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next Next fprefer = maxm End Function Private Sub Command1_Click() Dim s As Single Dim m As Single Dim th1(1 To 100) As Single Dim th2(1 To 100) As Single Dim y(0 To 10) As Single Dim c(0 To 10) As Single Dim tl As Single Dim tr As Single Dim s1 As Single s1 = 1 s2 = 1 For s = 1 To 100 th1(s) = 0.2 * s1 th2(s) = 0.1 * s2 s1 = s1 + 1 If s1 = 11 Then s2 = s2 + 1 If s1 = 11 Then s1 = 1 Next For m = 0 To 10 y(m) = 0.12 * m Next tl = tls(th1, th2, y) tr = trs(tl, th1, th2, y) Debug.Print tl, tr For m = 0 To 10 c(m) = (1 - tl) * y(m) + tr Next For s = 1 To 100 Debug.Print s, mprefer(s, th1, th2, c, y) Debug.Print s, fprefer(s, th1, th2, c, y) Next Open "c /f1.txt" For Output As #1 For m = 0 To 10 Write #1, m, y(m), c(m) Next Close #1 End Sub
https://w.atwiki.jp/rajidora/pages/37.html
蓮-ren-(ren) やる時は徹底的にガンガル子 得意 / 少年、少女、女性(タブン) 無理 / 男性(出ない) 高い声はお任せあれ(少女だけど)
https://w.atwiki.jp/ce00582/pages/2950.html
import java.awt.*; import java.awt.event.*; import java.io.*; class pro extends Frame{ double c[][]=new double[6][6]; double y1[][]=new double[6][6]; double y2[][]=new double[6][6]; public static void main(String [] args) { Frame f=new pro(); f.setTitle("pro"); f.setSize(700,700); f.setBackground(Color.yellow); f.setVisible(true); } pro(){ int s1,s2; try{ BufferedReader br = new BufferedReader(new FileReader("tax.txt")); String[] test = new String[25]; String str; String x[]=new String[5]; for(int i=0; i 25; i++){ str = br.readLine(); x=str.split(","); s1=Integer.valueOf(x[0]); s2=Integer.valueOf(x[1]); c[s1][s2]=Double.valueOf(x[2]); y1[s1][s2]=Double.valueOf(x[3]); y2[s1][s2]=Double.valueOf(x[4]); } br.close(); } catch(IOException e){System.out.println("入出力エラーです。");} addWindowListener(new stopwin()); } class stopwin extends WindowAdapter{ public void windowClosing(WindowEvent we){System.exit(0);} } public void paint(Graphics g){ int x1,x2,c1,c2; int s1,s2; g.setColor(Color.blue); for (s1=1;s1 5;s1++){ for (s2=1;s2 5;s2++){ c1=(int)(500*c[s1][s2]); c2=(int)(500*c[s1+1][s2]); x1=(int)(500*y1[s1][s2]); x2=(int)(500*y1[s1+1][s2]); g.drawLine(100+x1,600-c1,100+x2,600-c2); } } } }